home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 2 / AACD 2.iso / AACD / Online / ProfiPacket / Install_HD next >
Text File  |  1999-06-28  |  12KB  |  575 lines
  1. ;ProfiPacket - packet radio terminal program
  2. ;Copyright (C) 1999  Alexander Feigl
  3. ;
  4. ;This program is free software; you can redistribute it and/or modify
  5. ;it under the terms of the GNU General Public License as published by
  6. ;the Free Software Foundation; either version 2 of the License, or
  7. ;(at your option) any later version.
  8. ;
  9. ;This program is distributed in the hope that it will be useful,
  10. ;but WITHOUT ANY WARRANTY; without even the implied warranty of
  11. ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12. ;GNU General Public License for more details.
  13. ;
  14. ;You should have received a copy of the GNU General Public License
  15. ;along with this program; if not, write to the Free Software
  16. ;Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  17. ;
  18. ;Author:
  19. ;
  20. ;Alexander Feigl
  21. ;Burachstraße 51
  22. ;
  23. ;D-88250 Weingarten
  24. ;
  25. ;EMail : Alexander.Feigl@gmx.de
  26.  
  27. (procedure P_CopyServers
  28.  
  29.   (set i 0)
  30.   (set PatternStr "(%")
  31.  
  32.   (while (set ServerName (select i 
  33.       "BBS"
  34.       "Chat"
  35.       "Converse"
  36.       "Datacollector"
  37.       "FileAccess"
  38.       "Interlink"
  39.       "Mail"
  40.       "Miscellaneous"
  41.       "UserSettings"
  42.       ""
  43.       )
  44.     
  45.      )
  46.     (( IF (IN InstallServers i)
  47.       (
  48.        (SET PatternStr (CAT PatternStr "|" ServerName PatternSuffix))
  49.       )
  50.       (
  51.        (delete (tackon PatternPath (cat ServerName PatternSuffix)))
  52.       )
  53.     )
  54.     (set i (+ i 1))
  55.   ))
  56.  
  57.   (SET PatternStr (CAT PatternStr ")"))
  58.  
  59.   (Copyfiles
  60.     (Source PatternSource)
  61.     (DEST PatternPath)
  62.     (PATTERN PatternStr)
  63.   )
  64. )
  65.  
  66.  
  67.  
  68. (procedure P_CopyCatalogs
  69.  
  70.  (set CatalogSource (tackon (tackon "Profi_Packet/Catalogs" CatalogLanguage) "ProfiPacket"))
  71.  (set CatalogDestT (tackon CatalogDir CatalogLanguage) )
  72.  
  73.  (IF 
  74.    (NOT (EXISTS (CatalogDestT)))
  75.   
  76.    ( 
  77.     (MAKEDIR (CatalogDestT))
  78.    )      
  79.  )
  80.  
  81.  (set CatalogDest (tackon CatalogDestT "ProfiPacket") )
  82.  
  83.  (IF 
  84.    (NOT (EXISTS (CatalogDest)))
  85.   
  86.    ( 
  87.     (MAKEDIR (CatalogDest))
  88.    )      
  89.  )
  90.  
  91.  (Copyfiles
  92.    (Source CatalogSource)
  93.    (DEST CatalogDest)
  94.    (PATTERN "ProfiPacket#?")
  95.  )
  96.  
  97.  (set PatternSuffix ".catalog")
  98.  (set PatternPath CatalogDest)
  99.  (set PatternSource CatalogSource)
  100.  (P_CopyServers)
  101.  
  102. )
  103. ;----------------------------------------------------------------
  104. ;----------------------------------------------------------------
  105. ;---------------------------Main procedure-----------------------
  106. ;----------------------------------------------------------------
  107. ;----------------------------------------------------------------
  108.  
  109. (Complete 0)
  110.  
  111. (SET #muidir (getassign "MUI") )
  112.  
  113. (IF (= #muidir "")
  114.   (SET #muiverrev (getversion "libs:muimaster.library"))
  115.   (SET #muiverrev (getversion "mui:libs/muimaster.library"))
  116. )
  117.  
  118. (SET #muiver (/ #muiverrev 65536))
  119. (SET #muirev (- #muiverrev (* #muiver 65536) ) )
  120.  
  121. (IF (< 19 #muiver) 
  122.  (abort "MUI V3.8 must be installed on your system!")
  123. ) 
  124.  
  125.  
  126. (welcome)
  127.  
  128. (message "WARNING !  /  WARNUNG !\n\n"
  129.          "This version of ProfiPacket is not the final release! " 
  130.          "Many things may not work as intended, many other don't "
  131.          "work at all. Docs are not yet available in English! "
  132.          "You have been warned!\n\n"
  133.          "Diese Version von ProfiPacket ist nicht die endgültige "
  134.          "Version! Einige Funktionen könnnen noch nicht so "
  135.          "funktionieren wie beabsichtigt, einige funktionieren "
  136.          "überhaupt noch nicht. Die Programmbeschreibung ist "
  137.          "unvollständig. Sie wurden gewarnt!"
  138.         
  139.  )
  140.  
  141. (SET InstallPath 
  142.   (ASKDIR
  143.     (PROMPT "Please select directory to install the program. A new drawer "
  144.             "called ProfiPacket will be installed at this location.")
  145.     (HELP "You have to select where to install the programs on your "
  146.           "harddisk.")
  147.     (DEFAULT "sys:")
  148.     )
  149.   )
  150.  
  151.  
  152. (SET InstallLanguages
  153.  
  154.   (ASKOPTIONS
  155.  
  156.     (PROMPT "Please select the catalog files of the languages you want to "
  157.             "install.")
  158.     (HELP "Workbench 2.1 supports localization of programmes to your "
  159.           "native language. You can select these languages ProfiPacket "
  160.           "should support. (n/a) means that this language is not yet "
  161.           "supported in ProfiPacket but ProfiPacket is prepared to "
  162.           "support this language due to a translation request.")
  163.     (CHOICES "German" "French" "Dutch (incomplete)" "Polski (incomplete)" "Norwegian"
  164.              "Czech (n/a)" "Spain (n/a)" )
  165.     (DEFAULT 65535)
  166.   )
  167. )
  168.  
  169.  
  170. (SET InstallServers 
  171.   (ASKOPTIONS
  172.   
  173.     (PROMPT "Please select servers you want to install. Install all default "
  174.             "servers if possible, otherwise some functions of the programme "
  175.             "cannot be used.")
  176.     (HELP "ProfiPacket need servers to handle with inputs and outputs of "
  177.           "Packet Radio. You can write your own server to implement functions "
  178.           "which are not yet implemented, but you should install all servers "
  179.           "which are already checked because these are basic functions of the "
  180.           "programme. If you want to install additional features, so you can "
  181.            "check the unchecked servers too.")
  182.     (CHOICES 
  183.       "BBS.server"
  184.       "Chat.server"
  185.       "Converse.server"
  186.       "Datacollector.server"
  187.       "FileAccess.server"
  188.       "Interlink.server"
  189.       "Mail.server"
  190.       "Miscellaneous.server"
  191.       "UserSettings.server"
  192.      )
  193.     (DEFAULT 438)
  194.      )
  195.   )
  196.  
  197. (SET @default-dest (TACKON InstallPath ""))
  198.  
  199.  
  200. (SET InstallDir (TACKON InstallPath "ProfiPacket") )
  201.  
  202. (SET ServerDir (TACKON InstallDir "Servers") )
  203.  
  204. (SET GlobalDir (TACKON InstallDir "GLOBAL") )
  205.  
  206. (SET TNCInitDir (TACKON InstallDir "Text/TNC_Init") )
  207.  
  208. (SET SaveDir (TACKON InstallDir "Save") )
  209.  
  210. (SET UserDir (TACKON InstallDir "User") )
  211.  
  212. (SET DataDir (TACKON InstallDir "Data") )
  213.  
  214. (SET TextDir (TACKON InstallDir "Text") )
  215.  
  216. (Set FontDir (TACKON InstallDir "Data/PCFont") )
  217.  
  218. (Set CatalogDirV023 (TACKON InstallDir "Data/Catalogs") )
  219.  
  220. (Set CatalogDir (TACKON InstallDir "Catalogs") )
  221.  
  222. (Set HelpDir (TACKON InstallDir "Text/Help") )
  223.  
  224. (Set BBSDir (TACKON InstallDir "Data/BBS") )
  225.  
  226. (Set BBSResumeDir (TACKON InstallDir "Data/BBS/Resume") )
  227.  
  228. (Set DocsDir (TACKON InstallDir "Docs") )
  229.  
  230. (Set ContribDir (TACKON InstallDir "Contrib") )
  231.  
  232. (Complete 5)
  233.  
  234. (Working)
  235.  
  236. (IF (NOT (EXISTS (InstallDir))) 
  237.   
  238.   (
  239.     (MAKEDIR (InstallDir) (INFOS)  )
  240.  
  241.     )
  242.  
  243.   )
  244.  
  245.  
  246.   (IF (NOT (EXISTS (DocsDir)))
  247.     
  248.     (
  249.       (MAKEDIR (DocsDir) (INFOS) )
  250.       )
  251.     )
  252.  
  253.   (IF (NOT (EXISTS (SaveDir)))
  254.     
  255.     (
  256.       (MAKEDIR (SaveDir))
  257.       )
  258.     )
  259.  
  260.   (IF (NOT (EXISTS (UserDir)))
  261.     
  262.     (
  263.       (MAKEDIR (UserDir))
  264.       )
  265.     )
  266.  
  267.   (IF (NOT (EXISTS (DataDir)))
  268.   
  269.     (  
  270.       (MAKEDIR (DataDir))
  271.       )
  272.       
  273.     )
  274.  
  275.   (IF (NOT (EXISTS (BBSDir)))
  276.     
  277.     (
  278.       (MAKEDIR (BBSDir))
  279.       )
  280.   
  281.     )
  282.  
  283.   (IF (NOT (EXISTS (BBSResumeDir)))
  284.     
  285.     (
  286.       (MAKEDIR (BBSResumeDir))
  287.       )
  288.   
  289.     )
  290.  
  291.     
  292.   (IF (NOT (EXISTS (TextDir)))
  293.   
  294.     ( 
  295.       (MAKEDIR (TextDir))
  296.       )
  297.       
  298.     )
  299.  
  300.   (IF (NOT (EXISTS (CatalogDir)))
  301.   
  302.     ( 
  303.       (MAKEDIR (CatalogDir))
  304.       )
  305.     )
  306.  
  307.  
  308.   (IF (EXISTS (CatalogDirV023) )
  309.  
  310.     (
  311.       (DELETE (TACKON CatalogDirV023 "Deutsch/ProfiPacket.catalog"))
  312.       (DELETE (TACKON CatalogDirV023 "English/ProfiPacket.catalog"))
  313.       (DELETE (TACKON CatalogDirV023 "Deutsch"))
  314.       (DELETE (TACKON CatalogDirV023 "English"))
  315.       (DELETE (CatalogDirV023)  )
  316.     )
  317.  
  318.   )
  319.       
  320.   (IF (NOT (EXISTS (HelpDir)))
  321.   
  322.     ( 
  323.       (MAKEDIR (HelpDir))
  324.       )
  325.       
  326.     )
  327.  
  328.  
  329.   (COPYFILES
  330.          (SOURCE "Profi_Packet/Help")
  331.          (DEST HelpDir)
  332.          (PATTERN "#?_H_EN#?")
  333.          )
  334.  
  335.  
  336.   (COPYFILES 
  337.          (SOURCE "Profi_Packet/Docs")
  338.          (DEST DocsDir)    
  339.          (ALL)
  340.          )
  341.  
  342.   (IF (NOT (EXISTS (ContribDir)))
  343.   
  344.     ( 
  345.       (MAKEDIR (ContribDir))
  346.       )
  347.     )
  348.  
  349.   (IF (NOT (EXISTS (ServerDir)))
  350.   
  351.     ( 
  352.       (MAKEDIR (ServerDir))
  353.       )
  354.     )
  355.  
  356.  
  357.       
  358.   (COPYFILES 
  359.          (SOURCE "Profi_Packet/Contrib")
  360.          (DEST ContribDir)    
  361.          (ALL)
  362.          )
  363.  
  364.  
  365.   (Complete 30)
  366.  
  367.   (IF (NOT (EXISTS (TNCInitDir)))
  368.     
  369.     (
  370.       (MAKEDIR (TNCInitDir))
  371.       (COPYFILES 
  372.          (SOURCE "Profi_Packet/TNC_Inits")
  373.          (DEST TNCInitDir)    
  374.          (ALL)
  375.          )
  376.       )
  377.     )
  378.  
  379.   (Complete 35)
  380.  
  381.   (IF (NOT (EXISTS (GlobalDir)))
  382.     
  383.     (
  384.       (MAKEDIR (GlobalDir))
  385.       (COPYFILES 
  386.          (SOURCE "Profi_Packet/GLOBAL")
  387.          (DEST GlobalDir)    
  388.          (ALL))
  389.       )
  390.  
  391.     )
  392.  
  393.   (Complete 40)
  394.   
  395.   (COPYFILES
  396.      (SOURCE "Profi_Packet/")
  397.      (DEST InstallDir)
  398.      (PATTERN "(%|ProfiPacket|ProfiPacket.info)")
  399.      )
  400.  
  401.  
  402.   
  403.  
  404.   (COmplete 65)
  405.  
  406.   (IF (NOT (EXISTS (FontDir))) (
  407.     (MAKEDIR "FONTS:PCFont")
  408.     (COPYFILES 
  409.       (SOURCE "Profi_Packet/PCFont")
  410.       (DEST FontDir)
  411.       (ALL)
  412.       )
  413.     (COPYFILES 
  414.       (SOURCE "Profi_Packet/")
  415.       (DEST DataDir)
  416.       (PATTERN "PCFont.font")
  417.       )
  418.     )
  419.   )
  420.  
  421.  
  422.   (COPYFILES 
  423.     (SOURCE "Profi_Packet/Servers")
  424.     (DEST ServerDir)
  425.     (PATTERN "Connect.Server")
  426.   )
  427.     
  428.  
  429.   
  430.  
  431.   (Complete 70)
  432.  
  433.   (set PatternSuffix ".Server")
  434.   (set PatternPath ServerDir)
  435.   (set PatternSource "Profi_Packet/Servers")
  436.   (P_CopyServers)
  437.  
  438.   (if (IN InstallLanguages 0)
  439.     ( 
  440.  
  441.      (set CatalogLanguage "deutsch")
  442.      (P_CopyCatalogs)
  443.      (COPYFILES
  444.             (SOURCE "Profi_Packet/Help")
  445.             (DEST HelpDir)
  446.             (PATTERN "#?_H_DEU#?")
  447.             )
  448.     )
  449.   )
  450.  
  451.   (if (IN InstallLanguages 1)
  452.     ( 
  453.  
  454.      (set CatalogLanguage "français")
  455.      (P_CopyCatalogs)
  456.      (COPYFILES
  457.             (SOURCE "Profi_Packet/Help")
  458.             (DEST HelpDir)
  459.             (PATTERN "#?_H_FRA#?")
  460.             )
  461.  
  462.     )
  463.   )
  464.  
  465.  
  466.   (if (IN InstallLanguages 2)
  467.     (
  468.  
  469.      (set CatalogLanguage "nederlands")
  470.      (P_CopyCatalogs)
  471.      (COPYFILES
  472.             (SOURCE "Profi_Packet/Help")
  473.             (DEST HelpDir)
  474.             (PATTERN "#?_H_NLD#?")
  475.             )
  476.  
  477.     )
  478.   )
  479.  
  480.   (if (IN InstallLanguages 3)
  481.     (
  482.  
  483.      (set CatalogLanguage "polski")
  484.      (P_CopyCatalogs)
  485.      (COPYFILES
  486.             (SOURCE "Profi_Packet/Help")
  487.             (DEST HelpDir)
  488.             (PATTERN "#?_H_PL#?")
  489.             )
  490.  
  491.     )
  492.   )
  493.  
  494.  
  495.   (if (IN InstallLanguages 4)
  496.     (
  497.      (set CatalogLanguage "norsk")
  498.      (P_CopyCatalogs)
  499.      (COPYFILES
  500.            (SOURCE "Profi_Packet/Help")
  501.            (DEST HelpDir)
  502.            (PATTERN "#?_H_NOR#?")
  503.            )
  504.  
  505.     )
  506.  
  507.   )
  508.  
  509.   (if (IN InstallLanguages 5)
  510.     (
  511.      (set CatalogLanguage "czech")
  512.      (P_CopyCatalogs)
  513.      (COPYFILES
  514.            (SOURCE "Profi_Packet/Help")
  515.            (DEST HelpDir)
  516.            (PATTERN "#?_H_CZ#?")
  517.            )
  518.  
  519.     )
  520.  
  521.   )
  522.   (if (IN InstallLanguages 6)
  523.     (
  524.      (set CatalogLanguage "español")
  525.      (P_CopyCatalogs)
  526.  
  527.      (COPYFILES
  528.            (SOURCE "Profi_Packet/Help")
  529.            (DEST HelpDir)
  530.            (PATTERN "#?_H_E_#?")
  531.            )
  532.      (COPYFILES
  533.            (SOURCE "Profi_Packet/Help")
  534.            (DEST HelpDir)
  535.            (PATTERN "#?_H_E")
  536.            )
  537.  
  538.     )
  539.  
  540.   )
  541.  
  542.  
  543. (Complete 85)
  544.  
  545.   (Working ("Converting user database\n&\nRepairing any damages"))
  546.   
  547.   (RUN (CAT "Profi_Packet/Contrib/ConvertUsers "
  548.         (TACKON DataDir "users.dat" ) ))
  549.  
  550.   (SET Retcode (run (CAT "Profi_Packet/Contrib/MailGetVersion " 
  551.         (TACKON DataDir "bbs" ))))
  552.  
  553.   
  554.  
  555.   (if (= Retcode 0)
  556.    (
  557.     (message "MAILBOX INDEX CONVERSION\n\n"
  558.              "The mailbox index has to be converted from version 0 "
  559.              "to version 1. Following features cannot be converted:\n\n"
  560.              "- mailbox forwarding queue")         
  561.     
  562.     (Working ("Converting bbs index version 0 to 1"))
  563.     (RUN (CAT "Profi_Packet/Contrib/MailConvert0to1 "
  564.          (TACKON DataDir "bbs")))
  565.  
  566.    )
  567.   )
  568.  
  569.   
  570.  
  571.  
  572. (complete 100)
  573.  
  574.  
  575.